home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / biz / haage / WarpUP_V31.lha / WarpUP-WarpOS / WarpRace / ModSrc / ContextSwitch / Call68K.p next >
Text File  |  1997-09-24  |  1KB  |  44 lines
  1.                 incdir  include:
  2.                 incdir  powerasm:source/powerpc_lib/warprace/
  3.  
  4. **      '(C) Copyright 1997 Haage & Partner Computer GmbH'
  5. **           All Rights Reserved
  6.  
  7.                 include powerpc/ppcmacros.i
  8.                 include powerpc/powerpc.i
  9.                 include warprace.i
  10.  
  11.                 xref    _PowerPCBase
  12.                 xref    Empty68K
  13.  
  14.                 xdef    PPCMain
  15.  
  16.                 smalldata
  17.                 escapestr
  18.  
  19.                 section code
  20.  
  21. LOOPCOUNT       =       1000
  22.  
  23. PPCMain
  24.                 prolog
  25.                 push    r31
  26.                 mr      r31,r5
  27.                 li      r3,LOOPCOUNT
  28.                 mtctr   r3
  29.                 lwz     r3,WRI_STARTTIMER_PPC(r31)
  30.                 mtlr    r3
  31.                 lwz     r3,WRI_LINKERDB(r31)
  32.                 blrl
  33. .loop
  34.                 RUN68K  Empty68K
  35.                 bdnz    .loop
  36.                 lwz     r3,WRI_STOPTIMER_PPC(r31)
  37.                 mtlr    r3
  38.                 lwz     r3,WRI_LINKERDB(r31)
  39.                 blrl
  40.                 li      r4,LOOPCOUNT
  41.                 divwu   r3,r3,r4
  42.                 pop     r31
  43.                 epilog
  44.